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ABSTRACT 
wonaooee SEQ 0003 


THE PURPOSE OF THE MINC-11 SIZER PROGRAM IS TO VERIFY | 

CONF IGURATION OF THE MINC-11 HARDWARE. THE PROGRAM IS TO BE 
USED TO VERIFY THE CORRECT POSITION OF ANALOG CHANNELS, DEVICE 
ADDRESS AND VECTOR SWITCHES. THE PROGRAM SIZES THE MUNBER OF 


THE FIRST IS THE MODE aa THE MNCAD (A/D) CHANNELS. THE 

SECOND IS THE ADDRESS USAGE MAP WHICH IS USEFUL IN DETECTING 
A INCORRECT ADDRESS SWITCH SETTING. TOTAL PROGRAM CONTROL IS 
aos THRU THE CONSOLE TERMINAL VJA THE PROVISIONS OF 


REQUIREMENTS 


EQUIPMENT 


1. PDP11/03 COMPUTER OR LSI-11 PROCESSOR 
2. DLV11 WITH I/O TERMINAL (LA36, VT100, ETC.) 
3. MINC-11 SYSTEM 


S TORAGE 
THE PROGRAM USES THE LOWER 4K OF MEMORY. 
LOAD ING PROCEDURE <XXDP> 





1. ENSURE THAT THE DIAGNOSTIC LOAD MEDIA IS INSTALLED IN DRIVE 0. 

2. BOOT THE MEDIA BY TYPING °175000G'’ IF IN THE ODT MICRO-CODE 
STATE OR CYCLING THE POWER ‘ON-OFF** SWITCH 

3. UPON SUCCESSFUL BOOTING OF THE LOAD MEDIA, THE XXDP MONITOR 
WILL IDENTIFY ITSELF AND INFORM THE OPERATOR OF THE OPERATING 
OPTIONS THAT MAYBE SELECTED. 

4. THE OPERATOR SHOULD TYPE ‘'R VMNF??°' FOLLOWED BY A ‘RETURN’ 
THE XXDP MONITOR WILL LOAD THE PROGRAM INTO MEMORY AND START 
THE PROGRAM AT LOCATION 200. 


STARTING PROCEDURE 


1. THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE. 

2. THE PROGRAM WILL NOW ASK IF THE OPERATOR WANTS THE REPORT 
OF THE MODES OF THE MNCAD (A/D) CHANNELS. 

3. THE PROGRAM WILL NOW ASK IF THE OPERATOR WANTS THE REPORT 
OF THE ADDRESS USAGE MAP. 

4. THE PROGRAM WILL THEN SIZE THE MINC-11 SYSTEM AND REPORT 
THE DEVICE BUS AND VECTOR ADDRESSES AND SELECTED REPORTS. 


PROGRAM START 


200 STARTING ADDRESS OF THE PROGRAM 


5.0 


5.1 


6.0 


7.0 


7.1 


7.2 


Vae 


7.4 


7.5 


8.0 


SOFTWARE SWITCH REGISTER 


PROGRAM CONTROL 

THE SIZING MAYBE STOPPED BY TYPING THE ‘‘CONTROL & C"’ 
KEYS. THIS OPERATION WILL STOP THE PROGRAM AND ENABLE 
THE OPERATOR TO SELECT DIFFERENT PROGRAM REPORT'S. 


ERROR REPORTING 


NONE, NO ERROR MESSAGES ARE REPORTED. 
MISCELLANEOUS 


MINC-11 BUS ADDRESS MODIFICATION 


MODIFY LOCATION ‘SBASE* (LOC. 1240) IF BASE BUS ADDRESS IS NOT 171000. 


XXDP/APT NOTES 


THIS PROGRAM IS CHAINABLE UNDER XXDP (REQUIRES 8K OR MORE) 

WHEN RUN IN ‘‘CHAIN’’ MODE, THE PROGRAM WILL REQUIRE THE OPERATOR 
TO PERFORM INITIAL SETUP OPERATIONS. THE SIZER PROGRAM SHOULD 
NOT BE INCLUDED IN A ‘‘CHAIN®’' THAT LOOPS TO THE STARTING FILE. 
THIS PROGRAM DOES SUPPORT ‘‘APT’’ BUT HAS NOT BEEN RUN UNDER iT. 


POWER FAIL 

A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 


MULTIPLE MINC-11 OPTION INTERFACE TESTING 


THIS PROGRAM DOES *‘AUTO-SIZE** THE NUMBER OF MINC-11 OPTIONS CONNECTED. 


THE PROGRAM WILL SIZE SEQUENTIALLY UP TO: 
MNCAD (A/D)'S 

MNCKW (CLOCK) 'S 

MNCAA (D/A)'S 

MNCDO (DIGITAL OUT)'S 

MNCDI (DIGITAL IN)'S 


EACH MINC-11 OPTION MUST BE CONFIGURED WITH CONTIGUOUS BUS ADDRESSES. 
RESTRICTIONS 

ALL USER CONNECTIONS MUST BE REMOVED. 

EXECUTION TIME 


00 Go Oo Co & 


DEPENDANT UPON TERMINAL SPEED AND REPORTS SELECTED. 


SEQ 0004 


9.0 


EXAMPLE REPORT 


A *'TYPICAL’’ SIZER REPORT FOR A SYSTEM WITH THE FOLLOWING: 


171000 MNCAD 171020 MNCKW 
171060 MNCAA 171160 MNCD I 


171260 MNCDO 
173000-173776 BOOT-STRAP PROM 
176500-176526 SLU 0, 1, AND 2 
177170 RX01 DISK SUB-SYSTEM 
177560-177566 CONSOLE TERMINAL 


TRARAAARAAEEAAAEREAAEEELALE LLL ELE REAR ARERR RAS AR ARRAS SSS SS SD 


DO YUU WANT THE MNCAD, (A/D) CHANNEL MODE REPORT ? 
DO YOU WANT THE MEMORY USAGE MAP REPORT ? 
YPE ‘'Y'’ FOR YES = Y 
:MNCAD AT ADDRESS = 171000 | VECTOR = 400 


0 7 SINGLE ENDED 
10 = 13 DIFFERENTIAL 
14 = 17 DIFFERENTIAL 
20 = 23 DIFFERENTIAL 
;MNCKW AT ADDRESS = 171020 VECTOR = 400 
;MNCAA AT ADDRESS = 171060 VECTOR = ** DOES NOT EXIST ** 
:MNCDI AT ADDRESS = 171160 VECTOR = 130 
:MNCDO AT ADDRESS = 171260 VECTOR = 340 


# OF sMNCAD 1 ;MNCKW 71 = ;MNCAA 1) = =MNCDI. 1) «=;=MNCDO 1 


MNC11 MEMORY USAGE MAP (EACH BIT = 2 ADDRESSES) 
ADDR 000/400 100/500 200/600 300/700 
sae sels sale eee eee. 


170400 0000000000000000 
000 1000100000001100 0000000000001100 0000000000001000 0000000000000000 
mee 0000110000000000 0000000000000000 0000000000000000 


: 
: 
: 


i 
: 
: 
: 


ae oe ee 
SIS N NN SNS 


0 
177400 0000000000000000 0000000000001100 0000000000000000 0000000000000000 
END PASS # 1 


LISTING 


ATTACHED 


SEQ 0005 
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~TITLE MAINDEC-11-DVMNF-A MINC=11 OPTION SIZER PROGRAM 
;*COPYRIGHT (C) 1978 

:*DIGITAL EQUIPMENT CORP. 

SAIS. MASS. 01754 


: #PROGRAM BY R SHOOP 


S STHIS PROGRAM WAS ASSEMBLED age THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC-11-DZQAC-C3), 19, 1977. 


*SBTTL BASIC DEFINITIONS 
{INITIAL ADDRESS OF THE STACK POINTER *** 1100 #** 


STACK= 


-EQUIV EMT,ERROR 
-EQUIV IOT,SCOPE 


spine | Senne DEF INITIONS 


;;BASIC DEFINITION OF ERROR CALL 
;;BASIC DEFINITION OF SCOPE CALL 


;;CODE FOR HORIZONTAL TAB 


LF= 12 ;;CODE FOR LINE FEED 

CR= 5 ::;CODE FOR CARRIAGE RETURN 

CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ;;PROCESSOR STATUS WORD 


DDISP= 177570 


RO= 
R1i= a1 


::STACK LIMIT REGISTER 

; PROGRAM INTERRUPT REQUEST REGISTER 
; HARDWARE SWITCH REGISTER 

; ;HARDWARE DISPLAY REGISTER 


a REGISTER DEFINITIONS 


;;GENERAL REGISTER 
;;GENERAL REGISTER 


R2= %2 : ;GENERAL REGISTER 
R3= x3 : GENERAL REGISTER 
R4= %4 7 :GENERAL REGISTER 
R5= x5 7 :GENERAL REGISTER 
R6= %6 ; GENERAL REGISTER 
R7= %7 ; RAL REGISTER 
SP= %6 ss STACK POINTER 
PC= %7 PROGRAM COUNTER 
>*PRIORITY LEVEL DEFINITIONS 

PRO= 0 :;PRIORITY LEVEL 0 
PR1= 40 ::PRIORITY LEVEL 1 
PR2= 100 ::PRIORITY LEVEL 2 
PR3= 140 : PRIORITY LEVEL 3 
PR4= 200 ::PRIORITY LEVEL 4 
PR5= 240 ::PRIORITY LEVEL 5 
PR6= 300 ::PRIORITY LEVEL 6 
PR7= 340 ::PRIORITY LEVEL 7 


;*' SWITCH REGISTER’’ SWITCH DEFINITIONS 


SW15= 100000 
SW14= 40000 


SEQ 0007 


= 
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CVMNFA.P11 BASIC DEFINITIONS SEQ 0008 
(1) 020000 SwW13= 20000 
(1) 010000 Swi2= 10000 
(1) 004000 Swi1= 4000 
(1) 002000 SwW10= 20 
(1) 001000 swo9= 1000 
(1) SwO8= 4 
(1) 000200 swO7= 200 
(1) 000100 Sw06= 
(1) 0 swoS= 40 
(1) 000020 Sw04= 20 
(1) 000010 SwO3= 10 
(1) SwO2= 4 
(1) 000002 SwOl= 2 
(1) 000001 SwoO= 1 
(1) EQUIV SwWO9,SW9 
(1) EQUIV SW08,SW8 
(1) EQUIV SWwO7,SW7 
(1) EQUIV SwW06, 
(1) EQUIV SwW05,SW5 
(1) EQUIV Sw04, 
(1) EQUIV SWO3,SW3 
(1) EQUIV SwWwO2,SW2 
(1) EQUIV SwO01,SW1 
(1) -EQUIV Sw00,SWO 
(1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 100000 
(1) 040000 BIT14= 40000 
(1) 020000 BIT13= 2 
(1) 010000 BIT12= 10000 
(1) BIT11= 
(1) 002000 BIT10= 2000 
(1) 001000 BITO9= 1000 
(1) BITO8= 400 
(1) 000200 BITO7= 200 
(1) 000100 BIT06= 100 
(1) 000040 BITOS= 40 
(1) 000020 BIT04= 20 
(1) 000010 BITO3= 10 
(1) BITO2= 
(1) 000002 BITO1= 2 
(1) 000001 BITOO= 1 
(1) EQUIV BITO9,BIT9 
(1) EQUIV BITO8,BIT8 
(1) EQUIV BITO7,BIT7 
(1) EQUIV BIT06,BIT6 
(1) EQUIV BITOS,BITS 
(1) -EQUIV 04, 
(1) EQUIV BITO3,BI1T3 
(1) EQUIV BITO2,BIT2 
(1) EQUIV BITO1,B1T1 
(1) EQUIV BITOO,BITO 
(1) :*BASIC ‘CPU’ TRAP VECTOR ADDRESSES 


MAINDEC-11-DVMNF -A 


CVMNFA.P11 BASIC DEFINITIONS 

(1) 

(1) 000010 
(1) 000014 

(1) 000014 

(1) 000014 
(1) 000020 
(1) 000024 

(1) 000030 
(1) 000034 

(1) 

(1) 

(1) 000240 
in 171000 
15 000100 
 : 000100 000104 000200 000002 
18 
19 
20 000000 
21 
22 
23 
24 
25 
35 


36 000200 
37 000200 0001357 001524 


MINC-11 OPTION SIZER PROGRAM 


ERRVEC= 4 

RESVEC= 10 
TBITVEC=14 
TRTIVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PWRVEC= 24 
EMTVEC= 30 
TRAPVE C=34 
TKVEC= 60 
TPVEC= 64 


PIRQVEC= ea 
1000 


ABASE= 17 


.=100 
. WORD 


J 
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104,200,2 


3; TIME OUT AND OTHER ERRORS 
BIT. AND ILLEGAL INSTRUCTIONS 


;; TRACE TRAP 

; ;BREAKPOINT TRAP (BPT) 

+s INPUT/OUTPUT TRAP (IOT) **SCOPE** 
sPOWER FAIL 

; EMULATOR TRAP (EMT) **ERROR** 

33° 'TRAP** TRAP 

3: TTY KEYBOARD VECTOR 

:;TTY PRINTER VECTOR 

;;PROGRAM INTERRUPT REQUEST VECTOR 


3B EVENT VECTOR 


-SBTTL TRAP CATCHER 


PALL UNUSED LOCATIONS FROM 4-776 CONTAIN A *',+2°° 
:*AND "JSR PC,RO'' SEQUENCE TO CATCH ILLEGAL INTERRUPTS. 
:*AND INTERRUPTS TO THE WRONG VECTOR. 

: sLOCATION O CONTAINS A 0 TO CATCH IMPROPERLY LOADED 
;*V ‘ 


MP 


BEGIN 


;START ADDRESS 


SEQ 0009 
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CVMNFA.P11 ACT11 HOOKS SEQ 0010 
ms .SBTTL ACT11 HOOKS 
(2) PETTITT TILL LLL LLL iii 
(1) “HOOKS REQUIRED BY ACT11 
(1) 000204 $SVPC=. ; SAVE PC 
(1) 000046 .= 
(1) 000046 002644 SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
(1) 000052 -=52 
(1) 000052 000000 «WORD 0 . fig LOC. sae TO ZERO 
(1) 000204 .=$SVPC 32 RESTORE P 
40 001000 .=1000 
as .SBTTL APT PARAMETER BLOCK 
(2) TSAO SISI ISIS IDOI OISIE IEE IIDC OID I IR it tot 
(1) 3SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) Merritt titi itii titi tiie iti iii iit 
(1) 001000 -$X=. ;;SAVE CURRENT LOCATION 
(1) 000024 -=24 3:SET POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 000200 200 3z:FOR APT START UP 
(1) 000044 -=44 :zPOINT TO APT INDIRECT ADDRESS PNTR. 
(1) 000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 
(1) 001000 -=.$X  ;;RESET LOCATION COUNTER 
(2) Pettit iiiitt iti itittiitit iti iiti titi irr 
(1) ;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
fat ; INTERFACE SPEC. 
(1) 001000 SAPTHD 
(1) 001000 SHIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 001002 001164 SMBADR: .WORD S$MAIL : SADDRESS OF APT MAILBOX (BITS 0-15) 
(1) 001004 002260 STSTM: .WORD 1200. RUN TIM OF LONGEST TEST 
(1) 001006 000764 SPASTM: .WORD 500. ; 7 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
a3 001010 003244 SUNITM: .WORD 1700.  ;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


001012 000031 * "WORD $ETEND-SMAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


MAINDEC-11-DVMNF -A 
CVMNFA.P11 C 


ee ele le es PD 


RPP PR PR PR PR PR BP PR PRP PR OR PPP BPP PLP LPL LL LL Om Om Fe Fm fm fm OO Fm 


ee a a a a a a a a a a ee a a a a ee a ee a ee ee es es 
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-SBTTL COMMON TAGS 


SRAARAEAAAAERREREEE RARER EE EAEER AREER EERERARERRRRAERRRRERRRARRE RE RE ES 


* STHIS 
+ «USED 


SCMTAG: 


SAUTOB: 


.=1100 


eleleleleleleleleleol jelelelel ej a) eo) a 


09 
ae 4 
ry 
v 
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3; START OF 


; 3 CONTAINS 
;; CONTAINS 


3; CONTAINS 
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TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


COMMON TAGS 


THE TEST NUMBER 

ERROR FLAG 

SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 

MAX. ERRORS PER TEST 

PC OF LAST ERROR — 

ADDRESS OF ‘GOOD" DATA 

ADDRESS coe "BAD" DATA 
"GOOD" DAT 


"BAD ' 


ATA 
; ;RESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


: ADDRESS OF SWITCH REGISTER 

: ADDRESS OF DISPLAY REGISTER 

7: TTY KBD STATUS 

sz TTY KBD BUFFER 

:: TTY PRINTER STATUS REG. ADDRESS 
:: TTY PRINTER BUFFER REG. ADDRESS 


;; CONTAINS 
;; CONTAINS 


NULL CHARACTER FOR FILLS 
# OF FILLER CHARACTERS REQUIRED 


al FILL CHARS. AFTER A ‘LINE FEED’ 
:"‘TERMINAL AVAILABLE'* FLAG (BIT<07>=0=YES) 
QUESTION MARK 


CARRIAGE 


;sLINE FEED 


RE TURN 


5 LARA AERA REEREREEERE ERE ARREARARRARERRARAERRERER EE 


-SBTTL APT MAILBOX-ETABLE 


FL AAA AAA EEA AREER EREAEEEEARAAAARERERARARERAERARAERR ARERR AA EH 


: SDEVICE COUNT 

;;1/0 UNIT NUMBER 
; MESSAGE ADDRESS 
;;MESSAGE LENGTH 


SEQ 0011 


M1 
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CVMNFA.P11 APT MAILBOX-E TABLE SEQ 0012 
(2) 001204 SETABLE: :;APT ENVIRONMENT TABLE 
(2) 001204 000 SENV: BYTE AENV > ENVIRONMENT BYTE 
(2) 001205 000 SENVM: .BYTE AENVM s ENVIRONMENT MODE BiTS 
(2) 001206 000000 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(2) 001210 000000 SUSWR: .WORD AUSWR ; ;USER SWITCHES 
(2) 001212 000000 SCPUOP: .WORD ACPUOP ;CPJ TYPE,OPTIONS 
(2) ;* BITS 15=17=CPU TYPE 
(2) st 11/04=01, 11 /05= 02,11/20=03,11/40=04,11/45=05 
(2) te 11/70=06,PDO=07, Q=10 
(2) ;* BIT 10=REAL TIME CLOCK 
(2) ;* BIT 9=FLOATING POINT PROCESSOR 
(2) ;* BIT 8=MEMORY MANAGEMENT 
(2) 001214 000 SMAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
(2) 001215 000 SMTYP1: .BYTE AMTYP1 ;;:MEM. TYPE,BLKA1 
(2) ;* MEM. TYPE BYTE -- (HIGH BYTE) 
(2) ;* 900 NSEC CORE=001 
(2) ;* 300 NSEC BIPOLAR=002 
(2) ;* 500 NSEC MOS=003 
(2) 001216 000000 $MADR1: .WORD AMADR1 ;; HIGH ADDRESS,BLKA1 
(2) ;* MEM.LAST ADDR. =3 BYTES. THIS WORD AND LOW OF ‘‘TYPE** ABOVE 
(2) 001220 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 
(2) 001221 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE /BLKA2 
(2) 001222 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS,BLK&2 
(2) 001224 000 SMAMS3: .BYTE AMAMS3 ;; HIGH ADDRESS.M.S.BYTE 
(2) 001225 000 SMTYP3: .BYTE AMTYP3 ;;MEM.TYPE /BLKAS 
(2) 001276 000000 SMADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS,BLK&#3 
(2) 001230 000 SMAMS4: .BYTE AMAMS4 ¢ sHIGH ADDRESS .M.S.BYTE 
(2) 001231 000 SMTYP4: .BYTE AMTYP4 ;MEM. TYPE .BLKAS 
(2) 001232 000000 SMADR4: .WORD AMADRS : = MEM, LAST ADDRESS ,BLKAS 
(2) 001234 000000 SVECTI WORD AVECT1 ;; INTERRUPT VECTORA1 ,~BUS PRIORITYA1 


(2) 001236 000000 SVECT2: .WORD AVECT2 :: INTERRUPT VECTOR#2BUS PRIORITY#2 
$BASE: .WORD ABASE ::BASE ADDRESS OF EQUIPMENT UNDER TEST 


(2) 001242 000000 $DE VM WORD ADEVM ;;DEVICE MAP 
<2) 001244 000000 $CDW1 WORD ACDW1 ;;CONTROLLER DESCRIPTION WORDA1 
(2) 001246 SE TEND 


oo 


= 
25 


v 


Ce te ee ee ee ee a a, ee, ee, ee, ee, ee | 
ek ee et at et 
a meee ee eee ee ee ee le 
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.SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
>*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
; *LOCAT ION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


SERRIB: 


IF S$ITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC). 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

;:POINTS TO THE DATA FORMAT 


;NO ERRORS ARE REPORTED 


KWOFF : 
AAOF F : 
DIOFF: 
DOOF F : 


20 
60 
160 
260 


;OFFSET FROM SBASE VALUE TO KW ADDRESS. 
;OFFSET FROM $BASE VALUE TO AA ADDRESS 
;OFFSET FROM S$BASE VALUE TO DI ADDRESS 
;OFFSET FROM $BASE VALUE TO DO ADDRESS 


SEQ 0015 


;PROGRAM CREATES THESE ADDRESSES FROM THE VALUE OF $BASE PLUS THE OFFSET FOR THAT DEVICE 


0 
0 
0 
: © 
: ADRPOK 
0 
0 
0 
0 


0 
0 
0 
0 
0 
E 


OF EACH UNIT FOUND 


- TEMP LOCATIONS 


;ADDRESS VALUE FOR MEMORY USAGE 

;NON-ZERO INDICATES MEMORY USAGE MAP IS WANTED 
;NON-ZERO INDICATES THE A/D CHANNEL MODES GE REPORTED 
;HERE BECAUSE OF SYSMAC 

;HERE BECAUSE OF SYSMAC 


012737 
912737 
013737 


013746 


012637 


005037 
132737 
001403 
012737 


012737 
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INITIAL START-UP,HOUSEKEEPING, AND DIALOGUE 


: INITIAL START-UP,HOUSEKEEPING, AND DIALOGUE 


177777 


001436 
001320 
001322 
000004 


001172 
000200 


3; CLEAR 


MOV 
i A FEW VECTORS 


MOV SENDCT ,SEOPCT 
::SIZE FOR A HARD WARE SWITCH REGISTER. 
; EQUAL ee A’ 


64$: 
65$: 
66$: 


67$: 
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INITIALIZE THE COMMON TAGS 


HE 


MOV 


COMMON TAGS (SCMTAG) AREA 


#SCMTAG,R6 :zFIRST LOCATION TO BE CLEARED 
(R6)+ :CLEAR MEMORY LOCATION 
~R6 ;;DONE? 


;;LOOP BACK IF NO 
3;SETUP THE STACK POINTER 


A#STRAP , @#TRAPVE Fg VECTOR FOR TRAP CALLS 
#340, a#TRAPVEC+2; ;LE VEL 7 
;SETUP END-OF -PROGRAM COUNTER 
IF NOT FOUND OR IT IS 
SETUP FOR A SOFTWARE SWITCH REGISTER. 
@VERRVEC,-(SP) ;;SAVE ERROR VECTOR 


ASTACK, SP 


#64$,QMERRVEC 3:SET UP ERRLd VECTOR 
ADSWR , SWR : 3 SETUP FOR A HARDWARE SWICH REGISTER 
ADDISP ,DISPLAY DWARE DISPLAY REGISTER 


A HAR 
#-1 ,aSWR >: TRY TO REFERENCE HARDWARE SwWR 
66$ eT IF NO TIMEOUT TRAP OCCURRED 
THE HARDWARE SWR IS NOT = -1 


65$ > =BRANCH IF NO TIMEOUT 

#65$, (SP) «SET UP FOR TRAP RETURN 

#SWREG , SWR :;POINT TO SOFTWARE SWR 

#DISPREG,D! SPLAY 

(SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 

SPASS ;CLEAR PASS COUNT 

HAPTSIZE,SENVM «TEST USER SIZE UNDER APT 
7$ >: YES,USE NON-APT SWITCH 

HSSWREG , SWR : NO, USE APT SWITCH REGISTER 

#5046, $TYPE ; 

#12746, $TYPE+2 

H#STYPE+12,$TYPE+4 

#RTI,STYPE+6 

BS ceeuee > INIT THE TKB 


SE , ADBASE ;GET ag tn BASE 
ADBASE ,KWBASE ;GET KW BASE 


KWOFF , KWBASE ‘UPDATE KW ADDRESS 
ADBASE ,AABASE ;GET AA BASE 
AAOFF , AABASE ‘UPDATE AA ADDRESS 


ADBASE ,.DIBASE ;GET D 

DIOFF ,DIBASE :UPDATE DI ADDRESS 
ADBASE ,DOBASE GET DO BASE 

DOOFF , DOBASE ;UPDATE DO ADDRESS 

ADCNT ;CLEAR THE UNIT COUNTERS 


SEQ 0014 


C 2 
ram oa MINC=11 OPTION SIZER PROGRAM MACY11 27(654) 19-SEP-78 09:03 PAGE 4 
CVMNFA.P11 TYPE PROGRAM NAME SEQ 0015 


102 .SBTTL TYPE PROGRAM NAME 

(1) :;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

(1) 001646 005227 177777 INC #-' ssFIRST TIME? 

(1) 001652 001036 BNE 68s ;;BRANCH IF NO 

(1) 001654 022737 002644 000042 CMP #SENDAD ,a#42 ;sACT=-11? 

(1) 001662 001432 BEQ 68$ ; BRANCH IF YES 

(1) 001664 104401 001672 TYPE ,69$ 3 TYPE ASCIZ STRING 

(1) 001670 000427 BR 68$ ;GET OVER THE ASCIZ 

at 001750 i -ASCIZ <CRLF>#MD=-11-DVMNF =A MINC-11 OPTION SIZER PROGRAMA<CRLF > 
103 001750 105737 001205 TSTB SENVM + CHECK APT MODE? 

1046 001754 001042 BNE LOOP F YES 

105 001756 005737 000042 TST CHAIN : CHECK XXDP/ACT MODE? 

106 001762 001405 BEQ 1$ :BR IF NOT 

107 001764 104401 004664 TYPE » SE TMNC ;TELL OPER. ABOUT SETUP STUFF 
108 001770 104407 RDCHR :GET A CHAR 

109 001772 012600 MOV (SP)+,RO :READ WHATEVER CHARACTER 

110 001774 000432 BR LOOP ;RUN TEST WHEN OPER IS READY 
111 001776 104401 004262 1$: TYPE , QUE SAD :ASK OPERATOR ABOUT A/D MODE 
112 002002 104407 RDCHR ;GET OPER INPUT 

113 002004 012600 MOV (SP) +,RO ; 

114 00 042700 177600 BIC #177600 ,RO “MASK OFF JUNK 

115 002012 005037 001316 CLR F LAGAD ; INIT THE EXPANDED A/D REPORT 
116 002016 122700 000131 CMPB #*Y,RO :CHECK IF “'Y'" 

117 002022 001002 BNE 2$ :BR IF NOT 

118 002024 005237 001316 INC F LAGAD ;SET EXPANDED A/D REPORT 

119 002030 104401 004373 2$: TYPE . QUE SMP :ASK OPERATOR ABOUT MEMORY USAGE MAP 
120 002034 104407 RDCHR :GET OPER INPUT 

121 002036 012600 MOV (SP)+,RO 

122 002040 042700 177600 BIC #177600,R0 :MASK OFF JUNK 

123 002044 0050357 001314 CLR F LAGMP s INIT THE MEMORY USAGE REPORT 
124 002050 122700 000131 CMPB #*Y,RO :CHECK IF "'Y'' 

125 002054 001002 BNE LOOP :BR IF NOT 

sf 005237 001314 INC F LAGMP ;SET MEMORY USAGE FLAG 

128 ;NOW VERIFY THE MNCAD MODULES 

129 002062 004537 002700 LOOP: JSR R5, TEST ;CHECK THE MNCAD'S 

130 002066 003456 ADGO :ADDRESS OF INTR. STARTUP 

131 002070 001256 ADBASE :STARTING A/D ADDRESS 

132 002072 000004 4 ;OFFSET TO NEXT UNIT 

133 002074 004030 ADPRI 3A/D ore POINTER 

134 002076 000004 4 sMAX. # OF A/D*S ON A SYSTEM 
135 002100 001270 ADCNT 4 OF A/D*S FOUND ON SYSTEM 
136 ;NOW VERIFY THE MNCKW MODULES 

137 002102 004537 002700 JSR R5,TEST ;CHECK THE MNCKW'S 

138 002106 003474 KWGO sADDRESS OF INTR. STARTUP 

139 002110 001260 KWBASE ;STARTING K/W ADDRESS 

140 002112 ;OFFSET TO NEXT UNIT 

141 002114 004042 KWPR I ; KW — POINTER 

1 002116 000010 8. ;MAX. F KW ON A SYSTEM 

143 002120 001272 KWCNT ;# OF Kw FOUND ON SYSTEM 


C 


od od od 
VMMIVIviV 
CONUS 


159 


176 


— ss ss ss SS 3 SY YS 
SEGRALATSS IIA 


190 


MAINDEC-11-DVMNF -A 
VMANFA.P11 TYPE 


002700 


002700 


002700 


MINC-11 OPTION SIZER PROGRAM 
PROGRAM NAME 


T 
s;NOW VERIFY THE 
JSR 


DIGO 
DIBASE 
10 


DIPRI 
8 


DOGO 
DOBASE 


4 
DOPRI 
8. 


DOCNT 
;NOW REPORT THE 


TYPE 
TYPE 
TYPE 
V 
TYPOS 
BYTE 
TYPE 
V 
TYPOS 
BYTE 
TYPE 
MOV 
TYPOS 
BYTE 
TYPE 
TYPOS 
BYTE 
TYPE 
MOV 
TYPOS 
BYTE 
NOP 
NOP 
NOP 


D 2 
MACY11 27(654) 


; NOW ~~ THE MNCAA MODULES 


R5,TES* 


MNCDI MODULES 


DICNT 
> NOW vote THE MNCDO MODULES 


R5, TEST 
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;CHECK THE MNCAA 

;NO INTR. STARTUP 

; STARTING AA_ ADDRESS 
;OFFSET TO NEXT UNIT 

;AA MESSAGE POINTER 

:MAX. # OF AA ON A SYSTEM 
;4# OF AA FOUND ON SYSTEM 


;CHECK THE MNCDI 

;INTR. STARTUP ADDRESS 
;STARTING DI ADDRESS 
sOFFSET TO NEXT UNIT 

;DI MESSAGE POINTER 

sMAX. # OF DI ON A SYSTEM 
;4# OF DI FOUND ON SYSTEM 


;CHECK THE MNCDO 
:INTR. STARTUP ADDRESS 


:DO MESSAGE POINTER 
oa # OF DO ON A SYSTEM 
FOUND ON SYSTEM 


# OF DO 
TOTAL COUNT OF EACH MINC-11 MODULE 


, SCRLF 
eNIPRI 


-ADPRI 
ADCNT ,~ (SP) 
1,0 

,KWPRI 
KWCNT ,~ (SP) 
2,0 

-AAPRI 
AACNT ,~(SP) 


“DIPRI 
DICNT,-(SP) 
2,0 

DOPRI 
DOCNT ,~(SP) 
2,0 


sFRESH LINE 
;TELL THE @ 
sA/D 


7 KW 


SAA 


DI 


SEQ 0016 


MAINDEC-11-DVMNF -A 
TYPE 


CVMNFA.P11 


105737 
001006 


f @ 
MINC=11 OPTION SIZER PROGRAM MACY11 27(654) 
PROGRAM NAME 
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;DETERMINE IF THE MEMORY USAGE MAP SHOULD BE REPORTED 
TSTB NVM sTEST IF APT 


001205 T $e 
BNE 1$ “BR IF YES 
0009042 TST a42 sTEST IF XXDP 
BNE 1$ “BR IF YES 
001314 TST F LAGMP sTEST IF OPER. ASKED FOR MAP 
BNE 2$ :BR IF YES 
002566 1$: JMP SEOP “BYPASS REPORT 
001314 2$: CLR F LAGMP sENSURE ONLY THE 1ST PASS IT'S REPORTED 
004474 TYPE »MNCMAP ; INFORM THE OPER. THE HEADER 
000004 MOV ERRVEC ,-(SP) *SAVE CURRENT BUS TRAP VALUE 
170000 MOV #17 P sGET 1ST ADDRESS TO MAP 
001312 MOV RO,OUTADR *AND SAVE FOR TYPEOUT 
100000 MOV #81T15,R1 :PRIME THE ROTATING POINTER 
CLR R2 :CLEAR TEMP MASK 
010114 MOV #ADRPOK ,R3 ;LOAD MAP BLOCK POINTER 
002546 000004 MOV #4$ ,ERRVEC sLOAD ADDRESS TIMEOUT RETURN 
3$: TST (RO) s TEST THE ADDRESS 
BIS R1,R2 7 1F NO TIMEOUT-MARK A 1 
000002 ADD #2,R0 sUPDATE ADDRESS 
TST (RO) : T THE ADDRESS 
BIS R1,R2 3 1F NO TIMEOUT-MARK A 1 
000002 ADD #2,R0 : UPDATE ADDRESS 
ccc sENSURE CLEAR CARRY 
ROR R1 sMOVE RIGHT 
BCC 3$ ;BR IF MORE BITS LEFT 
MOV R2,(R3)+ sSAVE IN MAP BLOCKS 
CLR R2 ;CLEAR MASK 
100000 MOV #B1T15,R1 * LOAD ROTATING BIT 
010314 CMP #ADRTOP,R3 sCHECK IF MAP BLOCKS FILLED 
BNE 3$ “BR IF NOT 
:NOW REPORT THE MEMORY MAP 
ried MOV #ADRPOK ,RO :LOAD MEMORY MAP POINTER 
001161 5$: TYPE , SCRLF 
001312 a JE OUTADR ,- (SP) :REPORT ADDRESS 
205 TYPE , SPACE1 
002554 JSR PC ,OUTBIN ;OUTPUT BINARY BITS 
002554 JSR PC ,OUTBIN 
002554 JSR PC ,OUTBIN 
002554 JSR PC ,OUTBIN 
000400 001312 ADD #400 ,OUTADR :UPDATE ADDRESS VALUE 
010314 CMP #ADRTOP,RO -TEST IF FINISHED 
BNE 5$ ;BR IF NOT 
000004 MOV (SP) +, ERRVEC :RESTORE BUS TRAP VECTOR 
001161 TYPE , SCRLF 
002566 JMP SEOP 
sRETURN TO HERE UPON MEMORY TIME-OUT 
000002 4$: ae #2, (SP) :ADJUST RETURN ADDRESS 
; SUBROUTINE TO REPORT 1/0 FORMAT MESSAGES 
OUTBIN: oy (RO) +,-(SP) 
004205 TYPE , SPACE1 : INSERT A SPACE 


SEQ 0017 


et. 
MAINDEC=11-DVMNF -A MINC=11 OPTION SIZER PROGRAM MACY11 27(654) 19-SEP-78 09:03 PAGE 6-1 
CVMNFA.P11 TYPE PROGRAM NAME SEQ 0018 


252 002564 000207 RTS PC 


Ge 
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CVMNFA.P11 END OF PASS ROUTINE SEQ 0019 
an .SBTTL END OF PASS ROUTINE 
(2) TPRAERRASAAEAASZELZALALALELALELA SE SASEA ERE RRR RR RRR RRR ARRAS RAR ASA SRS SS SD 
(1) "INCREMENT THE PASS NUMBER (S$PASS) 
(1) :*TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 
(1) ;*I1F THERES A MONITOR GO TO IT 
Me :*IF THERE ISN'T JUMP TO LOOP 
(1) 002566 SEOP: 
(2) 002566 000240 NOP 
(1) 002570 005237 001172 INC SPASS ; INCREMENT THE PASS NUMBER 
(1) 002574 042737 100000 001172 BIC #100000, $PASS ® SDON' T ALLOW A NEG. NUMBER 
(1) 002602 005327 DEC (PC) + ; sLOOP? 
(1) 2 000001 SEOPCT: .WORD 1 
(1) 002606 003022 BGT $DOAGN 3sVEs 
(1) 002610 012737 MOV (PC) +,a(PC)+ ;sRESTORE COUNTER 
(1) 002612 000001 SENDCT: .WORD 1 
(1) 002614 002604 SEOPCT 
(1) 002616 104401 002663 TYPE , SENDMG 7; TYPE ‘END PASS #°' 
(2) 002622 013746 001172 MOV SPASS ,- (SP) ;;SAVE SPASS FOR TYPEOUT 
(2) 002626 104405 TYPDS 3:GO TYPE--DECIMAL ASCiI WITH SIGN 
(1) 002630 104401 002660 TYPE , SENULL :3TYPE A NULL CHARACTER 
(1) 002634 013700 000042 $GET42: MOV a742,RO ;3GET MONITOR ADDRESS 
(1) 002640 001405 BEQ SDOAGN ;;BRANCH IF NO MONITOR 
(1) 002642 000005 RESET 3z:CLEAR THE WORLD 
(1) 002644 004710 SENDAD: JSR PC, (RO) ::GO TO MONITOR 
(1) 002646 000240 NOP 2; SAVE ROOM 
(1) 002650 000240 NOP ;2FOR 
(1) 002652 000240 NOP ;ACT11 
(1) 002654 SDOAGN: 
(1) 002654 000137 JMP a(PC)+ 3 ;RETURN 
(1) 002656 002062 SRTNAD: .WORD ~ pel 
(1) 002660 377 377 000 $ENULL: .BYTE <-1,-1,0 ;NULL CHARACTER STRING 
<1) 002663 015 042412 042116 SENDMG: .ASCIZ <1§><{2>/END Pass #/ 
(1) 002670 050040 051501 020123 
(1) 002676 000043 


CVMNF A 


MAINDEC-11-DVMNF -A 
-P11 END 


OF 


012537 


005777 


H 2 
MINC-11 OPTION SIZER PROGRAM MACY11 27(654) 
PASS ROUTINE 


003140 


000004 
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; SUBROUTINE TO VERIFY THE BASE AND VECTOR ADDRESSES 


TEST: MOV (R5)+,67$ 
MOV @(R5)+,$BDDAT 
MOV (R5)+,VADR 
MOV (R5)+, Ae 
MOV (R5)+, TEMP 
MOV QWERRVEC ,-(SP) 
CLR XT 


NBE X LEAR 
; ADDRESS THE DEVICE TO VERIFY IT EXISTS 
i$: MOV #2$ ,ERRVEC :SET 


:GET INTR. STARTUP ADDRESS 
:GET ADDRESS 

:GET ADDRESS OFFSET 

;GET NAME NTER 


; SAVE ERR 


UP TIME-OUT RETURN 
SADDRESS THE UNIT 


TST aSBDDAT 
; NOW on AN INTR. AND FIND THE VECTOR 
60$ : CLR VECT 


;CLEAR VECTOR FLAG 


MOV MIOTRD.ERRVEC :SET UP INTELL. TRAP RETURN 
TST 67$ ;TEST IF NON-INTR DEVICE 
BEQ 65$ ;BR IF NOT INTR. DEVICE 
JSR PC,FIXVCT ;LOAD VECTOR TRAP 
JSR ,a67$ + GO PRIME THE DEVICE 
MOV #0 ,RO PRIME A COUNTER 
CLR -(§P) “LOWER 
ati #66$ ,- (SP) 3PS 
66$: DEC RO ; DELAY 
BNE ;SOME TIME 
65$: CLR @$BDDAT ;LONG ENOUGH DELAY 
;REPORT THE ADDRESS AND VECTOR VALUES ON FIRST PASS 
TST SPASS sCHECK IF FIRST 
BNE :BR IF NOT 
TYPE .SCRLF sENSURE FRESH LINE 
TYPE ;REPORT THE NAME 
70$: ;ADDRESS OF MESSAGE POINTER 
TYPE ,ATPRI ; TYPE ADDRESS STARTUP 
V SBDDAT ,- (SP) :GET ADDRESS 
TYPOS REPORT IT 
BYTE 6,1 
TYPE VTPRI :TYPE VECTOR STATUP 
TST VECT :CHECH IF INTR OCCURRED 
BNE 71$ ;BR IF YES 
TYPE te ;TELL OPER. NONE 
71$: MOV VECT,~(SP) ;GET VECTOR VALUE 
TYPOS s;REPORT IT 


72$: 
JSR 


73$ 
PC, TCHANL 


ANTE __3e1 
“SENSE IF A/D IF SO CHECK OPERATOR INPUT ABOUT CHANNEL MODE REPORT 
TST F LAGAD 71S ys MODE REPORT ENABLED? 


;BR IF NO 
:REPORT THE CONFIGURATION 


SEQ 0020 


MAINDEC-11-DVMNF-A 
CVMNFA.P11 


305 


7 
MINC-11 OPTION SIZER PROGRAM MACY11 27(654) 


END OF PASS ROUTINE 


001310 
001306 


001302 


001310 
001172 
003036 
001161 


004112 


001126 


003172 


003304 
001000 


001304 


73$: 


2$: 


76$: 
4S: 


67$: 


1$: 
2$: 


;COME HERE UPON 
CMP 
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sBUMP THE Det TEST IF FINISHED? 


INC ss NCREMENT UNIT COUNTER 
DEC TEMP ACHED MAX? 
BEQ 4$ - s REACHED MAX NO OF UNIT'S 
ADD VADR , SBDDAT GET NEXT UNIT 
BR 1$ >: TRY NEXT UNIT 
ADDRESS TIME-OUT 
(SP)+,(SP)+ :POP 2 WORDS OFF STACK 
TST NBEXT :CHECK IF ANY UNITS 
BNE 4$ “BR IF SOME 
TST SPASS sTEST IF Aaa} PASS 
BNE 4$ “BR IF NOT FIRST 
MOV 70$,76$ GET DEVICE MESSAGE POINTER 
TYPE ,SCRLF 
TYPE sTELL OPER. IT'S NOT THERE 
TYPE ,NOPR] ;TELL OPER. NONE FOUND 
NOP 
NOP 
MOV NBEXT ,a(R5)+ :SAVE THE #4 OF UNITS FOUND 
MOV (SP)+, ERRVEC ;RESTORE ERRVEC 
1! "ees :CLEAR EXPANDED A/D REPORT FLAG 
ADGO sADDRESS TO DEVICE PRIMER 
: INTELLIGENT INTERRUPT HANDLER 
IOTRD: MOV (SP), TRTO ;GET ADDRESS 
SUB #4,TRTO sADJUST VALUE 
CMP TRTO,41000 ; CHECK IF VECTOR OR FATAL TRAP 
BLE 2$ IF VECTOR 
— —— BUS TRAP iN PROGRAM 
MOV TRTO,VECT ;LOAD VECTOR 
CLR a$BDDAT :CLEAR CURRENT UNIT STATUS 
CMP (SP)+, (SP) + 
NOP 
NOP 
RTI sEXIT 


SEQ 0021 


MAINDEC-11-DVMANF-A 
CVMNFA.P11 END 


000022 
004700 
000000 


001000 


; SUBROUTINE TO LOAD  - snainmmat 


FIXVCT: MOV 


1$: 


23: 
3$: 


2 
MINC-11 OPTION SIZER PROGRAM MACY11 274656) 
PASS ROUTINE 


#20.R 
MOV #22.R1 
MOV #4700,R2 
CLR a0 
CLR awe 
CLR a#10 
CLR awi2 
CMP #60,RO 
BEQ $ 
CMP #100,R0 
BEQ $ 
CMP #40,R0 
BEQ $ 
CMP #200,R0 
BEQ $ 
CMP #34.RO 
BEQ $ 
NOP 
NOP 
NOP 
NOP 
NOP 
MOV R1,(RO)+ 
MOV R2. (RO)+ 
CMP (R1)+, (R1)+ 
CMP RO, #1000 
BNE 1$ 
RTS PC 
CMP (RO)+, (RO) + 
CMP (R1)+, (R1)+ 
CMP (RO) +. (RO) + 
CMP (R1)+,(R1)+ 
BR 1$ 
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TRAP CATCHER 

;LOAD STARTING ADDRESS 
LOAD STARTING POINTER 
;LOAD "BAD INSTR’ 


“TEST IF TKB VECTOR 
:BR IF Y 
:TEST IF LINE INTR. <B EVENT> 
;BR IF YES 
;TEST FOR XXDP FLAG VECTOR 
;BR IF YES 
;TEST IF STARTING ADDRESS 
;BR IF YES 
;TEST IF TRAP VECTOR 
IF YES 


;LOAD POINTER 
;LOAD ‘BAD’ 
;BUMP POINTER 
;DONE ? 

;BR IF NOT 
sRETURN 


SEQ 0022 


MAINDEC-11-DVMANF -A 
CVMNFA.P11 


K 2 
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END OF PASS ROUTINE 


012777 
40 


052777 
207 


000101 


001126 


177777 
000161 
000400 


175442 


175410 
175402 


175364 
175356 


175316 


:3 


23 
DI 


UBROUT INE 
GO: MOV 
BIS 


UBROUTINE TO P 
ADGO V 


TO 
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RIME THE MNCAD 


#101, aS5BDDAT ;ENABLE INTR. AND START CONVERSION 


PC sEXIT 
PRIME THE MNCKW 
SBDDAT RO ;GET ADDR. 


RO sMAKE ADDRESS OF CLOCK PRESET BUFFER 
#1, (RO) “LOAD CLOCK PRESET 

#161. a$BDDAT :LOAD RATE, INTR ENABLE AND GO 
#8178, @SBDDAT : LOAD MAINT CLOCK 


TO PRIME THE MNCDI 


#102 ,a$BDDAT 


:LOAD INTR. ENABLE AND MODE 
#4200, @SBDDAT 


tty MAINT. STROBE 


TO PRIME THE MNCDO 


SBDDAT RO :GET ADDRESS 

#3.RO | :MAKE OUTPUT DATA POINTER 

(RO) “ENABLE MAINT. STROBE 

#2.RO  :MAKE HIGH BYTE STATUS ADDRESS 
#wB1T0, (RO) :MAINT. STROBE 

#8116, aSBDDAT : ENABLE INTR. 


SEQ 0025 


MA INDE C-11-DVMAF -A 
CVMNFA.P11 


012701 


010146 
104403 
002 


MINC-11 OPTION SIZER PROGRAM 
END OF PASS ROUTINE 


001161 


001126 
000002 
175252 
175246 


004202 


004207 
000003 
007777 


000004 
000100 
000077 


175170 
000002 


175102 


. 
MACY11 27(654) 
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;SUB-ROUTINE TO TYPE OUT A/D CONFIGURATION 


TCHANL : 


23: 
3$: 


5$: 


6$: 


7$: 


8$: 
9$: 


10$: 


TYPE 


»SCRLF 


SBDDAT .R2 
#2,R2 
(R2),R1 
R1 


R1,-(SP) 
2 

0 

-MDASH 
#3,R1 
#7777 RO 
5$ 

#4.R1 
#100,R1 
6$ 
#77.R1 
R1,-(SP) 


~ ah ates 
MD IF 


9$ 


AT 
#8111, a$BDDAT 
2$ 
PC 


;MAKE CONVERTED VALUE ADDRESS 
;ENSURE A/D FLAG IS CLEARED 


;START A CONVERSION 
;WAIT FOR CONVERSION TO FINISH 


;GET RESULTS 
;MOVE IT OVER SOME 
i: SAVE R1 FOR TYPEOUT 
:GO TYPE--OCTAL ASCII 
sTYPE 2 DIGIT(S) 
: SUPPRESS LEADING ZEROS 
; TYPE A DASH 
:ADD 3 TO CHANNEL FOR DIFFERENTIAL 
; E ENDED 


S CHANNEL > LAST POSSIBLE CHANNEL 
YES, SET TO LAST CHANNEL 


;;SAVE R1 FOR TYPEOUT 
3;GO TYPE--OCTAL ASCII 
;;TYPE 2 DIGIT(S) 
;; SUPPRESS LEADING ZEROS 
yA eee: SINGLE ENDED? 
; TYPE SINGLE ENDED MESSAGE 
;;GO TEST MORE CHANNELS 
+S CHANNEL DIFFERENTIAL? 
33NO, MUST HAVE PREAMP 
; TYPE DIFFERENTIAL MESSAGE 
HANNE LS 


:YES 

:GET CHANNEL 
T CHANNEL NUMBER IN HIGH BYTE 

:SET STATUS ENABLE BIT 

[LOAD INTO A/D STATUS REGISTER 

:1S NON-EXSISTENT CHANNEL BIT SET? 


ME SSAGE 
;SET CHANNEL TO NEXT SET OF CHANNELS 
DONE ? 


SEQ 0024 


MA INDE C-11-DVMNF 
CVMNFA.P11 


472 
473 


474 
475 
476 
477 
478 


479 
480 


487 
488 


490 


004112 


RERRRREE 
VRSSEERB 


e82888 
B83 52 


-A 


046440 
050105 


MINC-11 OPTION 
END OF PASS ROUTINE 


046473 
000040 
046473 
000040 


020124 
051505 


000 
020040 
051117 


051117 


041516 
041516 
041516 
041516 
041516 
042040 
047516 
051511 

090 
020106 


042101 
020125 


042526 
036440 


052122 
050131 
020042 


020124 


sASCII MESSAGES 
ADPRI: .ASCIZ 


KWPRI : 
AAPR] : 
DIPRI: 
DOPRI : 
NOPR] : 


NIPRI: 
ATPRi: 


VTPRI: 


SSPACE: . 
SPACE1: . 


MDASH: 
MSE: 


MDIF: 


MPRMP : 


QUE SAD : 


SIZER PROGRAM 


-ASCIZ 
eASCI2 
ASCI2 
-ASCIZ 
ASCIZ 


ASCIZ 
ASCIZ 


ASCI2Z 


: .ASCII 


M 2 
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sMNCAD / 

sMNCKW / 

sMNCAA / 

sMNCDI / 

sMNCDO / 
** DOES NOT EXIST **/ 


-— = > = _ 


/# OF / 
/AT ADDRESS = / 


/ VECTOR = / 
/ 


/ 
= / 
SINGLE ENDED/<200> 


~~ SSN 


/ DIFFERENTIAL/<200> 


/ PREAMP/<200> 
<200>\DO YOU WANT THE MNCAD (A/D) CHANNEL MODE REPORT ?\ 


<200>\ TYPE ‘‘y’’ FOR YES = \ 


<200>\DO YOU WANT THE MEMORY USAGE MAP REPORT ?\ 


SEQ 0025 


MA INDE 


CVMNF 


491 


492 


493 


494 


495 
496 


497 
498 


C-1 
A.P 


11 


1=DVMNF -A 
END OF PASS ROUT 


077 
200 
042520 
043040 
051505 
6600 


051505 


MINC-11 Na SIZER PROGRAM 


021124 


054524 


MNCMAP : 


SE TMNC : 


ASCI2 


ASCII 


ASCII 


ASCIZ 


-BYTE 
ASCII 


-BYTE 


ASCII 


BYTE 
ASCII 


N 2 
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SEQ 0026 


<200>\ TYPE ‘‘Y'' FOR YES = \ 


<200>\MINC-11 MEMORY USAGE MAP (EACH BIT = 2 ADDRESSES) \<200> 


\ ADDR 000/400 100/500\ 

\ 200/600 300/700\ 

15,12,12 

/OPERATOR - PLEASE DO THE FOLLOWING: / 


15,12,12 
/REMOVE THE CUSTOMER CONNECTIONS FROM EACH 'MINC-11°° OPTION/ 


15,12 
\MNCAD (A/D) SET FRONT PANEL SWITCHES TO THE ‘‘TEST’’ POSITION\ 


MAINDEC-11-DVMNF -A 
CVMNFA.P11 


501 
502 


503 
504 


505 
506 


507 
508 


B 3 
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END OF PASS ROUTINE 


051517 


04 
051523 
054505 


052111 


047511 


eels 


40 
020116 





-BYTE 
ASCII 


-BYTE 


ASCII 


-BYTE 
ASCII 


-BYTE 
ASCII 


-BYTE 
ASCII 


-BYTE 
ASCII 


-BYTE 
ASCIZ 
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15,12 


\MNCKW (CLOCK) PULL OUT ''ST1'' AND ‘'ST2°' SWITCHES\ 


15,12 
\ AND ROTATE FULLY CLOCKWISE \ 


15,12 
\MNCDI (DIGITAL IN) SET 'DATA'’ SWITCH TO THE *"* POSITION\ 


15.12 

\SLU 0 INSTALL ‘‘SLU TEST CONNECTOR''\ 
15,12 

\SLU 1 INSTALL ‘‘SLU TEST CONNECTOR''\ 
15,12 

\SLU 2 INSTALL ‘‘SLU TEST CONNECTOR’'\ 
15,12,12 

\DEPRESS A KEY ON THE CONSOLE TERMINAL WHEN READY. \ 


SEQ 0027 





* 
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CVMNFA.P11 END OF PASS ROUTINE cPapeged tage te tate Moe b- SEQ 0028 


005546 044124 020105 047503 


005576 020116 042522 042101 
005604 027131 000040 


EVEN 


VISIT 
WwW SS 
NOW 
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CVMNFA.P11 TTY INPUT ROUTINE SEQ 0029 

at ~SBTTL TTY INPUT ROUTINE 
(3) SORES IEIIE ISIS IO III IIISIIUIIOIUIIIU IR It Ett itt 
(1) -ENABL LSB 
(1) 005610 000000 STKCNT: .WORD 0 7 NUMBER OF ITEMS IN QUEUE 

005612 000000 STKQIN: .WORD 0 32 INPUT POINTER 

005614 000000 $TKQOUT: .WORD 0 ; OUTPUT POINTER 

005616 000040 $TKQSRT: .BLKB 32. 7: TTY KEYBOARD QUEUE 

005656 STKQEND=. 


:*TK INITIALIZE ROUTINE 
:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
¢ *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) * eCALL: 

(1) * JSR PC, $TKINT 

) RE TURN 

( : 

(1) 005656 005037 005610 $TKINT: CLR STKCNT :CLEAR COUNT OF ITEMS IN QUEUE 
(1) 005662 012737 005616 005612 MOV #STKOSRT,STKQIN «MOVE THE STARTING ADDRESS OF THE 
(1) 005670 013737 005612 005614 MOV STKQIN,$TKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
(1) 005676 012737 005726 000060 MOV #STKSRV ,@ATKVEC is INITIALIZE THE KEYBOARD VECTOR 
(1) 005704 012737 000200 000062 MOV #200, AA TKVEC+2 :3"BR'' LEVEL 4 

(1) 005712 005777 173230 TST a$TkB *CLEAR DONE FLAG 

(1) 005716 012777 000100 173220 MOV #100, asTKS >: ENABLE TTY KEYBOARD INTERRUPT 
) 005724 000207 RTS > :RETURN TO CALLER 

(1) :*TK SERVICE ROUTINE 

(1) >*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

(1) **BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

(1) =*I]T IN THE QUEUE. 

(1) IF THE CHARACTER IS A ‘‘CONTROL-C’' (*C) STKINT IS CALLED AND 
C) ;*UPON RETURN EXIT IS MADE TO THE ‘'CONTROL-C'’ RESTART ADDRESS (BEGIN) 
\ 

(1) 005726 117746 173214 $TKSRV: MOVB _aSTKB,-(SP) ::PICKUP THE CHARACTER 

(1) 005732 042716 177600 BIC #°C177, (SP) *:STRIP THE JUNK 

(1) 005736 021627 000003 CMP (SP) #3 -:1S IT A CONTROL C? 

(1) 005742 001007 BNE 1$ : :BRANCH IF NO 

(1) 005744 104401 006516 TYPE  ,$CNTLC >: TYPE A CONTROL-C (*C) 

(1) 005750 004737 005656 JSR PC. $TKINT >: INIT THE KEYBOARD 

(1) 005754 005726 TST (SP) + =: CLEAN UP STACK 

() 005756 000137 001324 JMP BEGIN >: CONTROL C RESTART 

(1) 005762 1$: 

(1) 005762 022737 000040 005610 CMP #32. .STKCNT ::1S THE QUEUE FULL? 

(1) 005770 001004 BNE 3$ : :BRANCH IF NO 

(1) 005772 104401 006512 TYPE ,$BELL >:RING THE TTY BELL 

(1) 005776 005726 TST (SP) + 3 CLEAN CHARACTER OFF OF STACK 
(1) 006000 000451 BR 5$ EXIT 

(1) 006002 021627 000023 3$: CMP (SP) #23 :31S IT A CONTROL-S? 

(1) 006006 001021 BNE 32$ : CH IF NO 

(1) 006010 005077 173130 CLR asTkS ; DISABLE TTY KEYBOARD INTERRUPTS 
(1) 006014 005726 TST (SP) + “CLEAN CHAR OFF STACK 

(1) 006016 105777 173122 31$: TSTB) Ss @STKS = WAIT FOR A CHAR 


-.. 
MA INDE C-11-DVMNF -A MINC=11 OPTION SIZER PROGRAM MACY11 27(654) 19-SEP-78 09:05 PAGE 14-1 


CVMNFA.P11 TTY INPUT ROUTINE SEQ 0030 
006022 100375 BPL 31$ :LOOP UNTIL ITS THERE 
006024 117746 173116 MOVB  a$Tka,--(SP) “GET THE CHARACTER 
006030 042716 177600 BIC #°C177, (SP) >:MAKE IT 7=BIT ASCII 
006034 022627 000021 CMP (SP) +, #21 :31S IT A CONTROL-Q? 
006040 001366 BNE 31$ :BRANCH IF NO 
006042 012777 000100 173074 MOV #100, a$TKS ; ;REENABLE TTY KEYBOARD INTERRUPTS 
006050 000002 RT] = RETURN 
006052 005237 005610 32$: INC STKCNT : = COUNT THIS CHARACTER 
006056 021627 000140 CMP (SP) ,#140 -1$ IT UPPER CASE? 
006062 002405 BLT 4 ::BRANCH IF YES 
006064 021627 000175 CMP (SP) #175 *:1S IT A SPECIAL CHAR? 
006070 003002 BGT 4$ ; BRANCH IF YES 
006072 042716 000040 BIC #40, (SP) MAKE IT UPPER CASE 
006076 112677 177510 4$: MOVB  (SP)+,a$TKQIN 3 AND PUT IT IN QUEUE 
006102 005237 005612 INC $TKQIN ‘UPDATE THE POINTER 
006106 023727 005612 005656 CMP STKOIN, ASTKQEND : 360 OFF THE END? 
006114 001003 BNE 5$ “BRANCH IF NO 
006116 012737 005616 005612 MOV WSTKQSRT.$TKQIN ::RESET THE POINTER 
006124 000002 5$: RT] : ;sRETURN 

.DSABL LSB 


SERRE RRR RRR RRA REAR ERR EERE EE ee 
nome ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
*® ° 


BL LL FR FR FR FR FR FR FR FR FR FR FR FR FR FR FR FS RF BR BBE EB BOE BOE OEE EEL QLOQ_OQ_OQ_OQ_LM_L 
ee ee ee a a et a a a et et a a a a ee Ne a ee a ee ee a ae ee ae es ae 


3; RDCHR :;GET A CHARACTER FROM THE QUEUE 
;* RETURN HERE >; CHARACTER IS ON THE STACK 
s* :z;WITH PARITY BIT STRIPPED OFF 
006126 011646 SRDCHR: MOV (SP) ,-(SP) :;PUSH DOWN THE PC AND 
006130 016666 000004 000002 MOV 4(SP),2(SP) 7; THE PS 
006136 005066 000004 CLR 4(SP) + 3GET READY FOR A CHARACTER 
006142 005046 CLR - (SP) :PUT NEW PS ON STACK 
006144 012746 006152 MOV #64$,-(SP) > :PUT NEW PC ON STACK 
006150 000002 RTI :;POP NEW PC AND PS 
2) 006152 64$: 
1) 006152 005737 005610 1$: TST eae ::;WAIT ON A CHARACTER 
1) 006156 001775 BEQ 1$ 
1) 006160 005337 005610 DEC STKCNT :DECREMENT THE COUNTER 
1) 006164 117766 177424 000004 MOVB a$TKQOUT ,4(SP) $IGET ONE CHARACTER 
1) 006172 005237 005614 INC $TKQOUT ;UPDATE THE POINTER 
1) 006176 023727 005614 005656 CMP $TKQOUT, #STKQEND- 3 3D1D IT GO OFF OF THE END? 
1) 006204 001003 BNE 2$ > ;BRANCH IF NO 
1) 006206 012737 005616 005614 MOV #STKQSRT.$TKQOUT i ERESET THE POINTER 
1) 006214 000002 2$: RTI > sRETURN 
2 MOTITITIVTI III TITI TILL titi tt tii tii 
Pee ROUTINE WILL INPUT A STRING FROM THE TTY 
;*CALL: 
1 ;* RDLIN >: INPUT A STRING FROM THE TTY 
1 :* RETURN HERE : :ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;* >; TERMINATOR WILL BE A BYTE OF ALL O'S 
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CVMNFA.P11 TTY INPUT ROUTINE SEQ 0031 
(1) 006216 010346 SRDLIN: MOV R3,-(SP) : ;SAVE R3 
(1) 006220 005046 CLR - (SP) ;;CLEAR THE RUBOUT KEY 
(1) 006222 012703 006452 1$: MOV ASTTYIN,R3 ::GET ADDRESS 
(1) 26 022703 006512 2$: CMP ASTTYIN*#32.,R3 fh hs ip FULL? 
(1) 006232 101456 BLOS 4$ +3 IF YES 
(1) 006234 104407 RDCHR O READ ONE CHARACTER FROM THE TTY 
(1) 006236 112613 MOVB (SP)+, (R3) :3GET CHARACTER 
(1) 006240 122713 000177 10$: CMPB #177, (R3) :1S IT A RUBOUT 
(1) 006244 001022 BNE 5$ ; 7BR IF NO 
(1) 006246 005716 TST (SP) 1S THIS THE FIRST RUBOUT? 
(1) 006250 001007 BNE 6$ «BR IF NO 
(1) 006252 112737 000134 006450 MOVB a'\,9$ «TYPE A BACK SLASH 
(1) 006260 104401 006450 TYPE . 
(1) 006264 012716 177777 MOV #-1, (SP) +3 SET THE RUBOUT KEY 
(1) 006270 005303 6$: DEC R3 ;BACKUP BY ONE 
(1) 006272 020327 006452 CMP R3.ASTTYIN ii STACK EMPTY? 
(1) 006276 103434 BLO 4$ ::BR IF YES 
(1) 006300 111337 006450 MOVB (R3) ,9$ :;SETUP TO TYPEOUT THE DELETED CHAR. 
(1) 006304 104401 006450 TYPE 9 ::GO TYPE 
(1) 006310 000746 BR 2$ :;GO READ ANOTHER CHAR. 
(1) 006312 005716 5$: TST (SP) ; ;RUBOUT KEY SET? 
(1) 006314 001406 BEQ 7$ ;;BR IF NO 
(1) 006316 112737 000134 006450 MOVB #'°\,9$ >; TYPE A BACK SLASH 
(1) 006324 104401 006450 TYPE . 
(1) 006330 005016 CLR (SP) os THE RUBOUT KEY 
(1) 006332 122713 000025 7$: CMPB #25,(R3) :IS CHARACTER A CTRL U? 
(1) 006336 001003 BNE 8$ : IF NO 
(1) 006340 104401 006523 TYPE »SCNTLU «TYPE A CONTROL ‘U'' 
(1) 006344 000726 BR 1$ ::GO START OVER 
(1) 006346 122713 000022 8$: CMPB #22,(R3) ::1S CHARACTER A ‘“*R’*? 
(1) 006352 001011 BNE 3$ ; ;BRANCH IF NO 
(1) 006354 105013 CLRB (R3) ::CLEAR THE CHARACTER 
(1) 006356 104401 001161 TYPE ,SCRLF >: TYPE A ‘‘CR''® ‘LF’ 
<1) 104401 006452 TYPE STTYIN >; TYPE THE INPUT STRING 
(1) 006366 000717 BR 2$ ::60 PICKUP ANOTHER CHACTER 
(1) 006370 104401 001160 4$: TYPE , SQUES :: TYPE A 
(1) 006374 000712 BR 1$ 77 CLEAR THE BUFFER AND LOOP 
(1) 006376 111337 006450 3$: MOVB (R3) 9% ::ECHO THE CHARACTER 
(1) 006402 104401 006450 TYPE 9 
(1) 006406 122723 000015 CMPB #15, (R3)+ +s CHECK FOR RETURN 
(1) 006412 001305 BNE 2$ :LOOP IF NOT RETURN 
(1) 006414 105063 177777 CLRB -1(R3) =:CLEAR RETURN (THE 15) 
(1) 006420 104401 001162 TYPE ,SLF : 2 TYPE A LINE FEED 
(1) 006424 005726 TST (SP)+ :CLEAN RUBOUT KEY FROM THE STACK 
(1) 006426 012603 MOV (SP)+,R3 ; RESTORE R R3 
(1) 006430 011646 MOV (SP) ,-(SP) sADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 006432 016666 000004 000002 MOV 4(SP),2(SP) *: FIRST ASCII CHARACTER ON IT 
(1) 006440 012766 006452 000004 MOV #STTYIN,4(SP) 
(1) 006446 000002 RTI : ;RETURN 
(1) 006450 000 9$: BYTE 0 tL wa A ASCII CHAR. TO TYPE 
(1) 006451 000 -BYTE 0 : 3 TERM INA 
(1) 006452 000040 STTYIN: .BLKB 32. rte gt: '$. BYTES FOR TTY INPUT 
(1) 006512 177607 000377 SBELL: .ASCIZ <207><377><377> :: CODE FOR BELL 
(1) 006516 041536 005015 000 $CNILC: .ASCIZ /*C€/<15><12> ;CONTROL ‘'C"’ 
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(1) 006523 136 006525 000012 S$CNTLU: .ASCIZ /*U/<15><12> 3; CONTROL U" 

(1) 006530 043536 005015 000 S$CNTLG: .ASCIZ /*G/<15><12> : CONTROL ‘G 

(1) 006535 015 051412 051127 SMSWR: .ASCIZ <15><12>/SWR = / 

(1) 006542 036440 000040 

(1) 006546 020040 042516 020127 SMNEW: .ASCIZ / NEW = 

(1) 006554 020075 000 

(1) 006560 EVEN 

+ .SBTTL TYPE ROUTINE 

(2) SRA ERERERAEEEEEREERERERAEERERARRERRRRRRRRRERRER ERE 

(1) * SROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
(1) + * THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
(1) = *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
(1) :*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
a s sNOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

(1) “eC ALL: 

(1) = #1) USING A TRAP INSTRUCTION 

a3 a TYPE »MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
( :* 

(1) :* TYPE 

(1) 36 ME SADR 

) . 

(1) 006560 105737 001157 S$YYPE: TSTB STPFLG ::1S THERE A TERMINAL? 

(1) 006564 100002 BPL 1$ ;7;BR IF YES 

(1) 006566 000000 HALT ;;HALT HERE IF NO TERMINAL 

(1) 006570 000430 BR 3$ 77 LEAVE 

(1) 006572 010046 1$: MOV RO,-(SP) 7: SAVE RO 

(1) 006574 017600 000002 MOV a2(SP),RO + GET ADDRESS OF ASCIZ STRING 

(1) 006600 122737 000001 001204 CMPB #APTENV, SENV 7 RUNNING IN APT MODE 

(1) 001011 BNE 62$ :NO,GO CHECK FOR APT CONSOLE 

(1) 006610 132737 000100 001205 B1TB #APTSPOOL , SENVM «SPOOL MESSAGE TO APT 

(1) 006616 001405 BEQ 62$ ::;NO,GO CHECK FOR CONSOLE 

(1) 006620 010037 006630 MOV RO.61$ :; SETUP MESSAGE ADDRESS FOR APT 

(1) 006624 004737 007576 JSR PC, SATY3 7:SPOOL MESSAGE TO APT 

(1) 006630 000000 61$: .WORD 0 :MESSAGE ADDRESS 

(1) 006632 132737 000040 001205 62$: BITB #APTCSUP,.SENVM ;;APT CONSOLE SUPPRESSED 

(1) 006640 001003 BNE 60$ 7: YES,SKIP TYPE OUT 

(1) 006642 112046 2$: MOVB (RO)+,-(SP) :;PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 006644 001005 BNE 4$ + 2BR IF IT ISN'T THE TERMINATOR 

(1) 006646 005726 TST (SP) + 7 1F TERMINATOR POP IT OFF THE STACK 
(1) 006650 012600 60$: MOV (SP)+,RO > -RESTORE R RO 

(1) 006652 062716 000002 3$: ADD #2, (SP) ¢ ADJUST RETURN PC 

(1) 006656 000002 RT] URN 

(1) 006660 122716 000011 4$: CMPB WHT, (SP) : = BRANCH IF <HT> 

(1) 006664 001430 BEQ 8$ 

(1) 006666 122716 000200 CMPB #CRLF , (SP) : ;BRANCH IF NOT <CRLF> 

(1) 006672 001006 BNE 5$ 

(1) 006674 005726 TST (SP) + ::;POP <CR><LF> EQUIV 

(1) 006676 104401 TYPE 7:7: TYPE A CR AND LF 

(1) 006700 001161 SCRLF 

(1) 006702 105037 007036 CLRB SCHARCNT >; CLEAR CHARACTER COUNT 

(1) 006706 000755 BR 2$ :;GET NEXT CHARACTER 
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006710 004737 006772 5$: JSR PC, ,S$TYPEC TYPE THIS CHARACTER 
006714 123726 001156 6$: CMPB SFILLC, (SP)+ IT TIME FOR ae CHARS. ? 
001350 2$ NO GO GET NEXT CHAR. 
006722 013746 001154 MOV SNULL ,- (SP) ay ad be NEEDED 
006726 105366 000001 7$: DECB 1 (SP) : :DOES A NULL NEED TO BE TYPED? 
006732 002770 BLT 6$ ;BR IF NO=-GO POP THE NULL OFF OF STACK 
006734 004737 006772 JSR PC,$TYPEC ::GO TYPE A NULL 
006740 105337 007036 DECB SCHARCNT 3320 NOT COUNT AS A COUNT 
006744 000770 BR 7$ ; sLOOP 


;HORIZONTAL TAB PROCESSOR 


(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

() 

(1) 006746 112716 000040 8$: MOVB #* ,(SP) ;;REPLACE TAB WITH SPACE 
(1) 006752 004737 006772 9$: JSR PC ,STYPEC 3:3 TYPE A SPACE 

(1) 006756 132737 000007 007036 BITB #7, SCHARCNT ; BRANCH IF NOT AT 
(1) 006764 001372 BNE 9$ ;3TAB STOP 

(1) 006766 005726 TST (SP) + ;zPOP SPACE OFF STACK 

(1) 006770 000724 BR 2$ 7:GET NEXT CHARACTER 

(1) 006772 105777 172152 STYPEC: TSTB a$STPS 3zWAIT UNTIL PRINTER IS READY 

(1) 006776 100375 BPL STYPEC 

(1) 007000 116677 Q00002 172144 MOVB 2 (SP) ,aSTPB ;:LOAD CHAR TO BE TYPED INTO DATA REG. 
ai 007006 122766 000015 000002 CMPB oo e215 CHARACTER A CARRIAGE RETURN? 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


00100 ;BRANCH IF NO 
007016 beg o 007036 CLRB SCHARCNT :  VES=-CLEAR CHARACTER COUNT 


x 
007024 122766 000012 000002 1$: CMPB MLF ,2(SP) 71S CHARACTER A LINE FEED? 
007032 001402 BEQ STYPEX ; BRANCH IF YES 
007034 105227 INCB (PC)+ 7; COUNT THE CHARACTER 
007036 000000 SCHARCNT:.WORD 0 : ; CHARACTER COUNT STORAGE 
007040 000207 STYPEX: RTS PC 
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CVMNFA.P11 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0034 

ace .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

(2) ° 5 RRA AEAREEEAERAREEAEEAEEEAAARARERAEARAERRERRAERERRRAREER ARREARS 

(1) =*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER [0 A 6-DIGIT 

(1) * *OCTAL (ASCII) NUMBER AND TYPE IT 

33 ; s$TYPOS--~ENTER HERE TO SETUP SUPPRE SS ZEROS AND NUMBER OF DIGITS TO TYPE 
>*CALL: 

(1) ;* MOV NUM ,- (SP) ; ;NUMBER TO BE TYPED 

(1) s* TYPOS +3 CALL FOR TYPEOUT 

(1) ;* -BYTE N :N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

(1) ;* -BYTE M + sM=1 OR 0 

(1) ;* 321=TYPE LEADING ZEROS 

a :* :;0=SUPPRESS LEADING ZEROS 
** 

(1) > *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

(1) = *$TYPOS OR $STYPOC 

(1) > *CALL: 

(1) ;* MOV NUM ,- (SP) : ;NUMBER TO BE TYPED 

Mt. s* TYPON ;;CALL FOR TYPEOUT 
** 

at rp wrest HERE FOR TYPEOUT OF A 16 BIT NUMBER 
;*CALL: 

(1) 3* MOV NUM ,- (SP) ; ;NUMBER TO BE TYPED 

aa ;* TYPOC ;;CALL FOR TYPEOUT 

(1) 007042 017646 000000 $STYPOS: MOV a(SP) ,-(SP) : PICKUP THE MODE 

(1) 007046 116637 000001 007265 MOVB 1(SP) , SOF ILL : sLOAD ZERO FILL SWITCH 

(1) 007054 112637 007267 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 

(1) 007060 062716 000002 ADD #2, (SP) > :ADJUST RETURN ADDRESS 

(1) 007064 000406 BR $TYPON 

(1) 007066 112737 000001 007265 S$TYPOC: MOVB #1, SOF ILL :;SET THE ZERO FILL SWITCH 

(1) 007074 112737 000006 007267 MOVB #6, SOMODE +1 7 SET FOR SIX(6) DIGJ/S 

(1) 007102 112737 000005 007264 $TYPON: MOVB #5, SOCNT :;SET THE ITERATION COUNT 

<1) 007110 010346 MOV R3,-(SP) > ;SAVE R3 

(1) 007112 010446 MOV R4,-(SP) SZ SAVE R4 

(1) 007114 010546 MOV R5,-(SP) 7 SAVE R5 

(1) 007116 113704 007267 MOVB SOMODE +1,R4 :;GET THE NUMBER OF DIGITS TO TYPE 

(1) 007122 005404 = NEG R4 

(1) 007124 062704 000006 ADD #6 ,R4 :; SUBTRACT IT FOR MAX. ALLOWED 

(1) 007130 110437 007266 MOVB R4 , SOMODE >; SAVE IT FOR USE 

(1) 007134 113704 007265 MOVB SOF ILL.R4S :;GET THE ZERO FILL SWITCH 

(1) 007140 016605 000012 MOV 12(SP),R5 : PICKUP THE INPUT NUMBER 

(1) 007144 005003 CLR R3 ::CLEAR THE OUTPUT WORD 

(1) 007146 006105 1$: ROL R5 ; sROTATE MSB INTO ‘'C’’ 

(1) 007150 000404 BR 3$ :GO DO MSB 

(1) 007152 006105 2$: ROL R5 -:FORM THIS DIGIT 

(1) 007154 006105 ROL RS 

(1) 007156 006105 ROL 

(1) 007160 010503 MOV R5,R3 

(1) 007162 006103 3$: ROL R3 :;GET LSB OF Ht 3 jDIGIT 

(1) 007164 105337 007266 DECB SOMODE : TYPE THIS DIGIT 

(1) 007170 100016 BPL 7$ ;;BR IF NO 

(1) 007172 042703 177770 BIC #177770.R3 ::GET RID OF JUNK 

(1) 007176 001002 BNE 4$ >; TEST FOR 0 
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CVMNFA.P11 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0035 
(1) 007200 005704 TST R4 : i SUPPRESS THIS 0? 
(1) 007202 001403 BEQ 5$ ;;BR IF YES 
(1) 007204 005204 4$: INC R4 > :DON'T SUPPRESS ANYMORE 0'S 
(1) 007206 052703 000060 BIS #°0,R3 > :MAKE THIS DIGIT ASCII 
(1) 007212 052703 000040 5$: BIS #° -R3 > = MAKE ASCII IF NOT ALREADY 
(1) 007216 110337 007262 MOVB _R3, 8S :: SAVE FOR TYPING 
(1) 007222 104401 007262 TYPE 8$ ::GO TYPE THIS DIGIT 
(1) 007226 105337 007264 7$: DECB  $OCNT =: COUNT BY 1 
(1) 007232 003347 BGT 2$ ;3BR IF MORE TO DO 
(1) 007234 002402 BLT 6$ F 
(1) 007236 005204 INC R4  ; INSURE LAST DIGIT ISN'T A BLANK 
(1) 007240 000744 BR 2$ =GO DO THE LAST DIGIT 
(1) 007242 012605 63: MOV (SP)+,R5 = :=RESTORE R5 
(1) 007244 012604 MOV (SP)+.R4 * RESTORE R4 
(1) 007246 012603 MOV (SP)+.R3 : :RESTORE R3 
(1) 007250 016666 000002 000004 MOV 2(SP) .4(SP) *:SET THE STACK FOR RETURNING 
(1) 007256 012616 MOV (SP) +. (SP) 
(1) 007260 2 RTI RETURN 
(1) 007262 000 8$: .BYTE 0 “STORAGE FOR ASCII DIGIT 
(1) 007263 000 BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
(1) 007264 000 SOCNT: .BYTE 0 >:OCTAL DIGIT COUNTER 
(1) 007265 000 SOFILL: .BYTE 0 ;3ZERO FILL SWITCH 
(1) 007266 000000 SOMODE: .WORD 0 “NUMBER OF DIGITS TO TYPE 
523 _SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
(2) {RARER EAEAAREREEAERAEEAEEAERAAEEERERERERERARARRERAERERERERAEREEERE 
(1) “THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
(1) “*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) **NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) “*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(1) >*REPLACED WITH SPACES. 
(1) 7*CALL: 
(1) :* MOV NUM, ~ (SP) ::PUT THE BINARY NUMBER ON THE STACK 
3 3* TYPDS ::;GO TO THE ROUTINE 
(2) 007270 STYPDS: 
(3) 007270 010046 MOV RO.-(SP) ::PUSH RO ON STACK 
(3) 007272 010146 MOV R1.-(SP) ::PUSH R71 ON STACK 
(3) 007274 010246 MOV R2.-(SP) 3: R2 ON STACK 
(3) 007276 010346 MOV R3,-(SP) > :PUSH R3 ON STACK 
(3) 00 010546 MOV R5.-(SP) > :PUSH R5 ON STACK 
(1) 007302 012746 020200 MOV #20200.-(SP) =: SET BLANK SWITCH AND SIGN 
(1) 007306 016605 000020 MOV 20(SP) .R5 *:GET THE INPUT NUMBER 
(1) 007312 1 ::BR IF INPUT IS POS. 
(1) 007314 005405 NEG R5 *:MAKE THE BINARY NUMBER POS. 
(1) 007316 112766 000055 00C001 MOVB #*=,1(SP) > :MAKE THE ASCII NUMBER NEG. 
(1) 007324 005000 1$: CLR RO >:ZERO THE CONSTANTS INDEX 
(1) 007326 012703 007504 MOV #SDBLK ,R3 ::SETUP THE OUTPUT POINTER 
(1) 007332 112723 000040 MOVB #° ,(R3)+ >:SET THE FIRST CHARACTER TO A BLANK 
(1) 007336 005002 2$: CLR R2 *:CLEAR THE BCD NUMBER 
(1) 007340 016001 007474 ’ MOV SDTBL(RO).R1 ::GET THE CONSTAN 
(1) 007344 160105 3S: SUB R1.RS5 ; FORM THIS BCD DIGIT 
(1) 007346 002402 BLT 4$ F 
(1) 007350 005202 INC R2 >: INCREASE THE BCD DIGIT BY 1 


K 3 
MA INDE C-11-DVMNF -A MINC=11 OPTION SIZER PROGRAM MACY11 27(654) 19-SEP-78 09:03 PAGE 15-2 








CVMNFA.P11 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0036 
(1) 007352 000774 BR 3$ 
(1) 007354 060105 4$: ADD R1,R5 ::ADD BACK THE CONSTANT 
(1) 007356 005702 TST R2 *:CHECK IF BCD DIGIT=0 
(1) 007360 001002 BNE 5$ *:FALL THROUGH IF 0 
(1) 007362 105716 TSTB.—._« (SP) =:STILL DOING LEADING 0'S? 
(1) 007364 100407 BMI 7$ ::BR IF YES 
(1) 007366 106316 S$: ASLB —- (SP) > MSD? 
(1) 007370 103003 BCC 6$ ::BR IF NO 
(1) 007372 116663 000001 177777 MOVB  1(SP).-1(R3) ::YES==SET THE SIGN 
(1) 007400 052702 000060 63: BIS #°0,R2 >:MAKE THE BCD DIGIT ASCII 
(1) 007404 052702 000040 7$: BIS #’ (R2 : 3A MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 007410 110223 MOVB 2, (R3)+ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 007412 005720 TST (RO) + Se eUST INCREMENT ING 
(1) 007414 020027 000010 CMP RO,#10 >:CHECK THE TABLE INDEX 
(1) 007420 002746 BLT 2$ -:GO DO THE NEXT DIGIT 
(1) 007422 BGT $ >:GO TO EXIT 
(1) 007424 010502 MOV RS,R2 sé T THE LSD 
(1) 007426 000764 BR ng >GO CHANGE TO ASCII 
(1) 007430 105726 8$: TSTB. ss (SP) + ; WAS THE LSD THE FIRST NON-ZERO? 
(1) 007432 100003 BPL 9$ :BR IF NO 
(i) 007434 116663 177777 177776 MOVB -1(SP).-2(R3) 2: YES==SET THE SIGN FOR TYPING 
(1) 007442 105013 9s: CLRB —_ (3) >:SET THE TERMINATOR 
(3) 007444 . MOV (SP)+,R5 >:POP STACK INTO R5 
(3) 007446 012603 MOV (SP)+,R3 >:POP STACK INTO R3 
(3) 007450 012602 MOV (SP) +,R2 >:POP STACK INTO R2 
(3) 007452 012601 MOV (SP)+_R1 >:POP STACK INTO R1 
(3) 007454 012600 MOV (SP)+_RO >:POP STACK INTO RO 
(1) 007456 104401 007504 TYPE SDBLK ::NOW TYPE THE NUMBER 
(1) 007462 016666 000002 000004 MOV 2(SP) ,4(SP) * ADJUST THE STACK 
(1) 007470 012616 MOV (SP)+, (SP) 
(1) 007472 000002 RTI ::RETURN TO USER 
(1) 007474 0234 $DTBL: 10000. 
(1) 007476 001750 1000. 
(1) 007500 000144 100. 
(1) 007502 000012 Y 
(1) 007504 SDBLK: .BLKW 4 
524 .SBTTL BINARY TO ASCII AND TYPE ROUTINE 
(2) SRAAAAAAAAAAAARAAAAAARERE AAA AAAAARAREREAREARAAERERAARERERRE HEE ERE 
(1) “STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-81T 
() j #BINARY-ASCII NUMBER AND TYPE IT. 
(1) +e MOV NUMBER.-(SP) | ;:NUMBER TO BE TYPED 
at :* TYPBN si TYPE IT 
(1) 007514 010146 $TYPBN: MOV R1,-(SP) i: SAVE R ON THE STACK 
(1) 007516 016601 000006 MOV 6(S5P).R1 “GET THE INPUT NUMBER 
(1) 007522 000261 SEC :;SET ‘'C’* SO CAN KEEP TRACK OF THE NUMBER OF BITS 
(1) 007524 112737 000060 007566 1$: MOVB #°0,$B8IN SET CHARACTER TO AN ASCII ‘O"’. 
(1) 007532 006101 ROL R1 >:GET THIS BIT 
(1) 007534 0014 BEQ 2$ : DONE ? 
(1) 007536 105537 007546 ADCB =: SBN : :NO==SET THE CHARACTER EQUAL TO THIS BIT 
(1) 007542 104401 0075466 TYPE ,$BIN : £60 TYPE THIS BIT 
(1) 007546 000241 CLC CLEAR "'C’’ SO CAN KEEP TRACK OF BITS 
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CVMNFA.P11 INARY TO ASCII AND TYPE ROUT! SEQ 0037 
(1) 007550 000765 RR 1$ :;GO DO THE NEXT BIT 
(1) 007552 012601 23: MOV (SP)+,N1 ::;POP THE STACK INTO R1 
(1) 007554 016666 000002 000004 MOV 2(SP) .4(SP) > :ADJUST THE STACK 
(1) 007562 012616 MOV (SP)+, (SP) 
(1) 007564 RT] : RETURN TO USER 
(1) 007566 000 000 N: .BYTE 0,0 >: STORAGE FOR ASCII CHAR. AND TERMINATOR 
525 .SBTTL APT COMMUNICATIONS ROUTINE 
(2) SERA AAAAAAAAAAAAAAAAEAEAA EAE AAAAERERERARAERAERERAERERRERARRARER EEE 
(1) 007570 112737 000001 010034 $ATY1: MOVB 4#1,$FFLG ::TO REPORT FATAL ERROR 
(1) 007576 112737 000001 010032 $ATY3: MOVB #1,$MFLG >:TO TYPE A MESSAGE 
(1) 007604 000403 BR SATYC 
(1) 007606 112737 000001 010034 S$ATY4: MOVB  #1,S$FFLG ::TO ONLY REPORT FATAL ERROR 
(2) 007614 SATYC: 
(3) 007614 (10046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 007616 010146 MOV R1,-(SP) :;PUSH R71 ON STACK 
(1) 007620 105737 010032 TSTB 4 ss SMFLLG ::SHOULD TYPE A MESSAGE? 
(1) 007624 001450 BEQ 5$ s71F NOT: 
(1) 007626 122737 000001 001204 CMPB  WAPTENV,SENV _—; OPERATING UNDER APT? 
(1) 007634 001031 BNE 3$ :;1F NOT: BR 
(1) 007636 132737 000100 001205 BITB § #APTSPOOL.SENVM :;:SHOULD SPOOL MESSAGES? 
(1) 007644 001425 BEQ 3$ -:IF NOT: @R 
(1) 007646 017600 000004 MOV a4 (SP) RO -:GET MESSAGE ADDR. 
(1) 007652 062766 000002 000004 ADD #2.4(SP) > BUMP RETURN ADDR. 
(1) 007660 005737 001164 1$: TST SMSGTYPE ::SEE IF DONE W/ LAST XMISSION? 
(1) 007664 001375 BNE 1$ -:]F NOT: WAIT 
(1) 007666 010037 001200 MOV RO. SMSGAD -:PUT ADDR IN MAILBOX 
(1) 007672 105720 23: TSTB —s_-« (RO) + ::FIND END OF MESSAGE 
(1) 007674 001376 BNE 
(1) 007676 163700 001200 SUB SMSGAD .RO :;SUB START OF ME 
(1) 007 ASR >:GET MESSAGE LNGTH IN WORDS 
(1) 007704 010037 001202 MOV RO. $MSGLGT *:PUT LENGTH IN MAILBO 
(1) 007710 012737 000004 001164 MOV #4. SMSGTYPE >> TELL APT TO TAKE MSG. 
<1) 007716 000413 BR 
(1) 007720 017637 000004 007744 3S: MOV a4 (SP) .4$ ::PUT MSG ADDR IN JSR LINKAGE 
(1) 007726 062766 000004 ADD #2.4(SP) --BUMP RETURN ADDRESS 
(3) 007734 013746 177776 MOV 177776, =(SP) ::PUSH 177776 ON STACK 
(1) 007740 004737 JSR PC,STYPE >:CALL TYPE MACRO 
(1) 007744 4$ .WORD 0 
(1) 007746 S$: 
(1) 007746 105737 010034 10S: TSTB ss SF FLG ::SHOULD REPORT FATAL ERROR? 
(1) 007752 001416 BEQ 12$ *:I]F NOT: BR 
(1) 007754 005737 001204 TST SENV > :RUNNING UNDER APT? 
(1) 007760 001413 BEQ 12$ ::1F NOT: BR 
(1) 007762 005737 001164 11$: TST SMSGTYPE > FINISHED LAST MESSAGE? 
(1) 007766 0013 BNE 11$ >:J]F NOT: WAIT 
(1) 007770 017637 000004 001166 MOV a4(SP).S$FATAL ;;GET ERROR # 
(1) 007776 062766 000002 000004 ADD #2,4(SP) ->BUMP RETURN ADDR. 
(1) 010004 005237 001164 INC SMSGTYPE :: TELL APT TO TAKE ERROR 
(1) 010010 105037 010034 12$:  CLRB  $FFLG >>CLEAR FATAL FLAG 
(1) 010014 105037 010033 CLRB —s-« SLFLG >: CLEAR LOG FLAG 
(1) 010020 105037 010032 CLRB 2s SMFLLG >: CLEAR MESSAGE FLAG 
(3) 010024 012601 MOV (SP)+,R1 >:POP STACK INTO R1 
(3) 010026 012600 MOV (SP)+,RO -:POP STACK INTO RO 


MA INDE C-11-DVMNF -A 


CVMNFA.P11 APT COMMUNICATIONS ROUT! 
(1) 010030 000207 
(1) 0100 000 
(1) 01003 000 
(1) 010034 000 
(1) 010056 
(1) 000200 
(1) 000001 
(1) 000100 
(1) 000040 
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C ; ;RETURN 
Sy 1 — 


p 
' 0 

SLFLG: .BYTE 0 Fi" LA 
‘ 0 : FATAL FLAG 


APTCSUP=040 


SEQ 0038 


MA INDE C-11-DVMNF -A 
CVMNFA.P11 


Fe ee ee ee, te ee ee, ee, ce, ee, ee, ee et ee ee, ee, ee 
Ns as ss st ss Ss Os sss es 
ee ee a ee a a ok a ee 


010072 
010074 
010076 
010100 
010102 
010104 
010106 


010110 
010112 


010114 
010314 


TRAP DECOD 


000002 


010072 


000004 000002 


. SBTTL 


:*AND USE IT TO INDEX THROUGH THE 
:*OF THE DESIRED ROUTINE. 
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TRAP DECODER 


p SoNKoeeaoeeeasesgaggcessesegeeqsagssessseeseseseeseseoeseueeosees 


SSTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘“‘TRAP’’ INSTRUCTION 


:*GO TO THAT ROUTINE 


STRAP: 


RO,-(SP) 
2(SP) ,RO 


-(RO) 
(RO) ,RO 


R 
STRPAD (RO) ,RO 
RO 
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; i SAVE 


SEQ 0059 


TRAP TABLE FOR THE STARTING ADDRESS 
THEN USING THE ADDRESS OBTAINED IT WILL 


RO 
¢3GET TRAP ADDRESS 


;BACKUP BY 2 
;3GET RIGHT BYTE OF TRAP 
;POSITION FOR INDEXING 


i: INDEX TO TABLE 
;GO TO ROUTINE 


>: THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 
STRAP2: MOV 


. SBTTL 


$TRPAD: 


; MEMORY 
ADRPOK : 
ADRTOP: 0 


RT] 


(SP) ,=(SP) 
4(SP) ,2¢SP) 


TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION, 


SRDCHR 
SRDL IN 


3; CALL=TYPBN 


3; CALL=RDCHR 
7; CALL=RDLIN 


USAGE MAP BLOCK 


- END 


100 


MOVE THE PC DOWN 
>; MOVE THE PSW DOWN 
; RESTORE THE PSW 


TRAP+1(104401) 
TRAP+2(104402) 
TRAP+ 3( 104403) 
TRAP +4 (104404) 
TRAP+5 (104405) 
TRAP +6( 104406) 


TRAP+7( 104407) 
TRAP+10( 104410) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 

TYPE BINARY (ASCI1) NUMBER 


TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 


;LAST LOCATION USED BY PROGRAM 


ed pt 1=DVMNF -A 


VANFA.P11 
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90* 91s 148 
98* 152 182 


91 
181 4754 


87* 88 90 92 94 131 


328 3914 

173 4738 

213 230 5 304 
240 5314 

5254 

5254 
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SEQ 0040 


MAINDEC-11=DVMNF -A 


CVMNFA.P11 
APTSIZ= 000200 
APTSPO= 000100 
WREG= 000000 
ATESTN= 000000 
ATPRI 004147 
AUNIT = Q00000 
AUSWR = 000000 
AVECT1= 000000 
AVECT2= 000000 
BEGIN 001324 
BITO = 000001 
BITOO = 000001 
BITO1 = 000002 
BITO2 = 000C04 
B1T03 = 000010 
BITO4 = 000020 
BITOS = 000040 
BITO6 = 000100 
B1T97 = 000200 
BITO8 = 00 
BITOS = 001000 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BITS = 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 000400 
BIT9 = 001000 
BPTVEC= 000014 
CHAIN 000042 
CR = 000015 
CRLF = 000200 
DDISP = 177570 
DIBASE 001264 
DICNT 001276 
DIGO 3534 
DIOFF 001252 
DIPRI 
DISPLA 001142 
DISPRE 001322 
DOBASE 001266 
DOCNT 001300 
DOGO 003560 
DOOFF 001254 
DOPR I 100 
DSWR = 177570 


—" 


Ww 
MO 


Nm 
Co 4- £00 


SeeE Vee eer eee ee ee reer eee HOSES 


—_ — 
SEAL 


42a 
64 


5254 
5254 


4804 


419 


519 


226 
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CROSS REFERENCE TABLE 


MAINDEC-11-DVMANF -A 


CVMNFA.P11 
EMTVEC= 0000350 
= 000004 


HT 11 
IOTRD 003224 
1OTVEC= 20 
KWBASE 001260 
KWCNT 001272 
KWwGO 003474 
KWOFF 001246 
KWPRI 004042 
LF = 000012 
LOOP 002 
MDASH 004207 
MD IF 004232 
MNCMAP 004474 
004251 
MSE 004213 
NBEXT 001310 
NIPRI 004141 
NOPRI 00411 


PIRQ = 177772 
PIRQVE= 000240 
PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PRS = 000140 
PR4 = 000 

PRS = 000240 
PR6 = 000 

PR7 = 340 
PS = 177776 
PSW = 177776 
PWRVEC= 000024 
QUESAD 004262 
QUESMP 004373 
RDCHR = 104407 
RDLIN = 104410 
RESVEC= 000010 
RO =%000000 
R1 =%000001 
R2 =%000002 
R3 =%000005 


134 
134 
273 

744 


SELL SSS SVees 


oO 


woo 
Boa 


~ Swern 
el setcoind Soh Teo lsdisd edo D — Let ind died vd died int tN td nd 
VeVS PP SLs 


208 


118* 
126+ 


89* 


143 


4744 
125 


214s 


301 
205 


139 
178 


1294 


242% 


326* 
206* 


254 


324 


2494 
237s 


519s 


265 


238* 
520* 


266* 


252s 
525% 


270* 


254* 


325% 


273* 


D 4 
MINC=11 OPTION SIZER PROGRAM MACY11 27(654) 19=SEP=78 09:03 PAGE 16-3 
CROSS REFERENCE TABLE 


274* 


303* 


377* 


SEQ 0042 


395* 


